#!/usr/bin/perl
# bizz_buzz.pl
use warnings;
use strict;

my $int;
my $count=0;
my $test=0;

#function check of the number of valid parameters
#BEGIN
foreach (@ARGV)
	{
	$test++;
	}
if($test!= 1) 
	{
	die "Parameter number is invalid, please enter an integer!!!"; exit
	}
#END

#function that implements the game installed fizz_buzz
#BEGIN
$int+=$_ for @ARGV;
while ($count<$int)
{
	$count++;
	if ((($count % 3)==0)&&(($count % 5)==0))
		{
		printf "fizz_buzz, ";
		}
	elsif (($count % 3)==0)
		{
		printf "Fizz, ";
		}
	elsif (($count % 5)==0)
		{
		printf "Buzz, ";
		}
	else
		{
		printf "$count, ";
		}
}
#END